home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Loadstar 131
/
131.d81
/
b.menubox demo
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-08-26
|
2KB
|
63 lines
100 poke56,32:clr:dv=peek(186):ifdv<8thendv=8
110 poke53280,0:poke53281,0
120 sys57812"menubox 9000",dv,0:poke780,0:poke781,0:poke782,144:sys65493
130 sys57812"font",dv,0:poke780,0:poke781,0:poke782,32:sys65493
140 dimc(15,2):fori=0to15:readc(i,0):next:print"[147]"
150 fori=0to15:readc(i,1):next
160 fori=0to15:readc(i,2):next:sys36864+39,10241
170 fori=1to5:reada$:sys36864+42,a$,i,0:next
180 sys57812"tiles",dv,0:poke780,0:sys36864+12:sys65493
190 sys36864+27,"text",dv,32768
200 poke53272,24:
210 lattice=36864:block=36867:box=36870:copy=36873:goto370
220 gosub510
230 poke214,24:poke211,2:sys58732
240 print" [211][208][193][195][197] [146][159] - [206]ext [195] [146][159] - [195]olor [209] [146] [159]- [209]uit"
250 geta$:ifa$<>" "anda$<>"q"anda$<>"c"then250
260 ifa$="c"then300
270 ifa$="q"thenreturn
280 t1%=rnd(0)*137
290 t2%=rnd(0)*137
300 c1%=rnd(0)*15+1
310 i=rnd(0)*3
320 c2%=c(c1%,i)
330 syscopy,8192,t1%,105:sysblock,0,39,1,1,32,0
340 print" [212]ile 1 ="t1%" [212]ile 2 ="t2%
350 syscopy,8192,t2%,95
360 syslattice,1,38,3,22,95,105,c1%,c2%:goto250
370 sysblock,0,39,24,24,32,0:gosub510
380 sysblock,5,34,7,13,255,2:sysblock,6,35,6,12,160,14:sysbox,6,35,6,12,7
390 sys36864+39,10241:sys36864+57,7,34,7,11,1,14,1,14,1,5,0
400 onf%gosub410,450,220,490,620:goto370
410 sys36864+54,"$:*",dv,3*4096:f=f%-1
420 sysblock,2,36,5,18,255,2:sysbox,3,37,4,17,7:sysblock,4,36,16,16,32,0
430 poke214,16:poke211,4:sys58732:print"[153] [195][210][211][210]/[210][197][212][213][210][206]: [212]oggle [211][208][193][195][197]: [197]xit"
440 sys36864+60,4,5,15,1,3,1,7,1:return
450 sysblock,0,39,13,16,160,14:poke214,14:poke211,1:sys58732
460 print"[154][195][210][211][210]-[213][208]/[196][207][215][206] - [211][195][210][207][204][204] [198]1/[198]7 - [211][195][210][207][204][204]"
470 print"[200][207][205][197]/[195][204][210] - [212][207][208]/[194][207][212][212][207][205] [210][197][212][213][210][206] - [197][216][201][212]
480 [158]36864[170]48,32768:l[178]f%[171]1:[158]36864[170]57,0,39,2,12,1,3,1,3,0,l,0:[142]
490 [128]
500 [128]
510 [129]i[178]1[164]10:[158]box,10[171]i,29[170]i,12[171]i,13[170]i,5:[130]
520 [158]lattice,1,38,3,22,95,105,10,2
530 [153]"print (NULL) val (NULL) (NULL) close(NULL) (NULL) (NULL) (NULL)closepeekclose(NULL) (NULL) "
540 [158]block,1,38,0,0,100,1:[142]
550 [128]
560 [131]00,15,10,14,10,03,14,05,09,10,08,12,14,03,05,03
570 [131]00,12,08,05,08,06,12,13,02,08,04,15,11,07,11,12
580 [131]00,11,04,06,06,13,04,03,07,07,07,01,01,15,01,14
590 [131]"(NULL)ee atn ascile (NULL)equestor","(NULL)se (NULL)enu atns (NULL)eader","(NULL)ee (NULL)iles right$n atnction"
600 [131]"(NULL)uit (NULL)o peekasic","(NULL)uit (NULL)o (NULL)(NULL)atnstr$(NULL)(NULL)atn(NULL)"
610 [144]
620 [129]i[178]0[164]21:[151]828[170]i,8[170]i:[130]
630 [139]dv[179]8[176]dv[177]29[176]dv[178]8[167]650
640 a[178][194](828):b[178][194](828[170]dv[171]8):[151]828,b:[151]828[170]dv[171]8,a
650 a$[178]"hello connect":[129]j[178]8[164]29:i[178][194](828[170]j[171]8):[139]i[178]14[167][130]
660 [160]2:[159]2,i,2:[160]2:[139]st[167]680
670 [160]15:[159]15,i,15,"r0:"[170]a$[170]"="[170]a$:[132]15,er:[160]15:[139]er[178]63[167]690
680 [130]:[153]"load":[151]53272,23:[151]186,8:[128]
690 q$[178][199](34):[151]646,[194](53281):[153]"load":[151]53272,23
700 [153]"loadp(NULL)2048,0:p(NULL)44,8:p(NULL)43,1:p(NULL)56,160:p(NULL)55,0:clr:l(NULL)"q$a$q$","i
710 [153]"run:":[151]631,13:[151]632,13:[151]198,2:[128]